home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CHEKMATE.ZIP / CHeKMaTe / aliases.ini next >
INI File  |  1997-03-12  |  8KB  |  175 lines
  1. [Aliases]
  2. n0=mm { set %i 0 | :start | inc %i | if ($nick(%i,#) == $null) { echo 5 -a -> *users $+ : $+ # $+ * *1 | halt } | if ($nick(%i,#) == $me) goto start | raw -q privmsg $nick(%i,#) : $+ *1 | goto start }
  3. n1=j { join $$* }
  4. n2=ping { ctcp $$* ping | echo 5 -a 14[ 4CHK 14] 1P14ing on 1 $$* 14 [4 CHK 14]  }
  5. n3=seen { if ($readini $mircdirnames.txt *2 seen  == $null) { msg $1 I havent seen  $+ *2 $+ , maybe  $+ $opnick($rand(1,$opnick(0,$1)),$1) $+  has? | halt } | set %stemp $readini $mircdirnames.txt *2 seen | %timepast = $ctime - %stemp | msg $1  $+ *2 $+  was last seen on $asctime(%stemp) $+ ( $+ $duration(%timepast) $+ ). }
  6. n4=wall  { if $me isop # { onotice $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | halt } | set %i 0 | :start | inc %i | %nick = $opnick(%i,#) | if ($opnick(%i,#) == $null) { echo 5 -a -> Ops on # $+ : $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | halt } | raw -q notice %nick : $+ $chr(91) $+  $+ %wall $+ : $+ # $+ $chr(93) *1 | goto start }
  7. n5=/away {
  8. n6=  if ( *1 == $null ) {
  9. n7=    .timer999 off
  10. n8=    .timer998 off
  11. n9=    nick %oldnick
  12. n10=    set %pager OFF
  13. n11=    away
  14. n12=    ame 14is back from 1 $+ %awayreason $+  14 For... 15<14 $+ $duration(%away) $+ 15> 14[4CHK14]
  15. n13=    unset %away
  16. n14=    set %away 0
  17. n15=    unset %awayreason
  18. n16=    unset %oldnick
  19. n17=    .disable #away
  20. n18=    halt
  21. n19=  }
  22. n20=  if ( $1 == -p ) {
  23. n21=    set %pager ON
  24. n22=    away 14I have been away since 14[1 $+ $atime $+ 14] Reason:1 $+ *2 $+  14[4CHK14]
  25. n23=    /ame 14is leaving 1 $+ *2 $+ 14 14Pager is 15[14ON15] 14[4CHK14]
  26. n24=    .timer999 0 1 inc %away 1
  27. n25=    set %awaytime $atime
  28. n26=    .timer998 0 600 /pageron
  29. n27=    .enable #away
  30. n28=    set %awayreason *2
  31. n29=    set %oldnick $me
  32. n30=    /nick $$?="Enter away nick"
  33. n31=    halt
  34. n32=  }
  35. n33=  if ( $1 == -np ) {
  36. n34=    set %pager OFF
  37. n35=    /ame 14is leaving 1 $+ *2 $+ 14 14Pager is 15[14OFF15] 14[4CHK14]
  38. n36=    away 14I have been away since 14[1 $+ $atime $+ 14] Reason:1 $+ *2 $+  14[4CHK14]
  39. n37=    .timer999 0 1 inc %away 1
  40. n38=    set %awaytime $atime
  41. n39=    .timer998 0 600 /pageroff
  42. n40=    .enable #away
  43. n41=    set %awayreason *2
  44. n42=    set %oldnick $me
  45. n43=    /nick $$?="Enter away nick"
  46. n44=    halt
  47. n45=  }
  48. n46=  else {
  49. n47=    set %pager $$?'="Pager on or off?"
  50. n48=    if ( %pager == off ) {
  51. n49=      set %pager OFF
  52. n50=      /ame 14is leaving 1 $+ *2 $+ 14 14Pager is 15[14OFF15] 14[4CHK14]
  53. n51=      away 14I have been away since 14[1 $+ $atime $+ 14] Reason:1 $+ *2 $+  14[4CHK14]
  54. n52=      .timer999 0 1 inc %away 1
  55. n53=      set %awaytime $atime
  56. n54=      .timer998 0 600 /pageroff
  57. n55=      .enable #away
  58. n56=      set %awayreason *1
  59. n57=      set %oldnick $me
  60. n58=      /nick $$?="Enter away nick"
  61. n59=      halt
  62. n60=    }
  63. n61=    if ( %pager == on ) {
  64. n62=      set %pager ON
  65. n63=      away 14I have been away since 14[1 $+ $atime $+ 14] Reason:1 $+ *2 $+  14[4CHK14]
  66. n64=      /ame 14is leaving 1 $+ *2 $+ 14 14Pager is 15[14ON15] 14[4CHK14]
  67. n65=      .timer999 0 1 inc %away 1
  68. n66=      set %awaytime $atime
  69. n67=      .timer998 0 600 /pageron
  70. n68=      .enable #away
  71. n69=      set %awayreason *1
  72. n70=      set %oldnick $me
  73. n71=      /nick $$?="Enter away nick"
  74. n72=      halt
  75. n73=    }
  76. n74=  }
  77. n75=}
  78. n76=/pageron /ame 14is away1 $+ %awayreason $+ 14Pager is 15[14ON15]14 I have been gone for 14<1 $+ $duration(%away) $+ 14[4CHK14]
  79. n77=/pageroff /ame 14is away1 $+ %awayreason $+ 14Pager is 15[14OFF15]14 I have been gone for 14<1 $+ $duration(%away) $+ 14[4CHK14]
  80. n78=tile {
  81. n79=  say 0,4 $+ $str($add($len($strip(*1)),4),á) $+ 
  82. n80=  say 0,4 $+ áá $+ *1 $+ 0,4áá0,1áá
  83. n81=  say 0,4 $+ $str($add($len($strip(*1)),4),á) $+ 0,1áá
  84. n82=  say áá0,1 $+ $str($add($len($strip(*1)),4),á) $+ 
  85. n83=}
  86. n84=add {
  87. n85=  %add = $1 + $2
  88. n86=  return %add
  89. n87=  unset %add
  90. n88=}
  91. n89=/big {
  92. n90=  set %letfile letters.ini
  93. n91=  %word = $$1
  94. n92=  set %bigcol  $+ $rand(1,15)
  95. n93=  if (# = $null) { set %active /me }
  96. n94=  else { set %active describe # %bigcol }
  97. n95=  %lword = $len(%word) 
  98. n96=  if (%lword > 9) { unset %*word | echo 4 -a 14Word is too long. Has to be shorter than 9 letters | halt } 
  99. n97=  %i = 1  | %ln = 1 | %ltn = 1 | %write1 = $chr(160) | %write2 = $chr(160) | %write3 = $chr(160) | %write4 = $chr(160) | %write5 = $chr(160)
  100. n98=  :mw
  101. n99=  if ($mid(%i,1,%word) = $null) { goto makebig } | if ($mid(%i,1,%word) = %space) { set %letn $+ %i | inc %i 1 | goto mw } 
  102. n100=  set %letr $+ %i $mid(%i,1,%word) | inc %i 1 | goto mw
  103. n101=  :makebig | %ln = 1 | %ltn = 1
  104. n102=  :nl | set %write $+ %ln  %write [ $+ [ %ln ] ]  $readini %letfile %letr [ $+ [ %ltn ] ]  %ln |  inc %ltn 1 
  105. n103=  if (%ltn > %lword) { inc %ln 1 | %ltn = 1 | if (%ln > 5) { goto end } } | goto nl
  106. n104=  :end |  %active %write1 |  %active %write2 |  %active %write3 |  %active %write4 |  %active %write5
  107. n105=  unset %ln %ltn %write* %letr* %word* %lword %active* | halt
  108. n106=  describe #á
  109. n107=}
  110. n108=clones {
  111. n109=  if ( $$2 == -e ) echo 2  14[4CHK14] Searching for clones in 1 $+ $$1
  112. n110=  if ( $$2 == -m ) msg $$1  14[4CHK14] Searching for clones in 1 $+ $$1
  113. n111=  set %loops 1
  114. n112=  set %count 1
  115. n113=  :loop
  116. n114=  if %loops > $nick(%loops,$$1) { goto finish | set %loops 1 }
  117. n115=  if $ial($address($nick(%loops,$$1),2),0) > 1 {
  118. n116=    if $inchan($remove($address($nick(%loops,$$1),2),*!*@),$$1) == $ial($address($nick(%loops,$$1),2),0) {
  119. n117=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $null { set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@) 12 $+ $nick(%loops,$$1) | set %done $+ $address($nick(%loops,$$1),2) 0  }
  120. n118=      else set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@)  [ % [ $+ [ clone [ $+  [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] ]  $+ , $+ $chr(160) $+ $nick(%loops,$$1) 
  121. n119=      inc %done $+ $address($nick(%loops,$$1),2) 
  122. n120=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $ial($address($nick(%loops,$$1),2),0) {
  123. n121=        if ( $$2 == -e ) echo 2 Clone set 10 $+ %count $+ :12 % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ]
  124. n122=        if ( $$2 == -e ) echo 2 Cloning Address: 20 *!*@ $+ $remove($address($nick(%loops,$$1),2),*!*@)
  125. n123=        if ( $$2 == -m ) msg $$1 18Clone set 10 $+ %count $+ :12 % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ]
  126. n124=        if ( $$2 == -m ) msg $$1 18Cloning Address: 20 *!*@ $+ $remove($address($nick(%loops,$$1),2),*!*@)
  127. n125=      inc %count }
  128. n126=    }
  129. n127=    inc %loops | goto loop
  130. n128=    :finish
  131. n129=    unset %clone*
  132. n130=    unset %done*
  133. n131=    set %count [ [ %count ] - 1 ]
  134. n132=    if (( %count != $null ) && ( $$2 == -e )) echo 2  14[4CHK14] Total:1 %count 14clone set(s) in 1 $+ $$1
  135. n133=    if (( %count != $null ) && ( $$2 == -m )) msg $$1  14[4CHK14] Total:1 %count 14clone set(s) in 1 $+ $$1
  136. n134=    unset %count
  137. n135=  }
  138. n136=}
  139. n137=cstat {
  140. n138=  set %statircops 0
  141. n139=  set %stathere 0
  142. n140=  set %statanum 0
  143. n141=  set %statclones 0
  144. n142=  set %chanst on
  145. n143=  if ( $1 = -e ) set %cstat echo
  146. n144=  if ( $1 = -m ) set %cstat msg
  147. n145=  who $chan
  148. n146=}
  149. n147=title {
  150. n148=  titlebar /\/\/\/\/\/\==[ --CHK-- ]==----==[ CHeKMaTe ]==----==[ CHK-Idle: $duration($idle) $+   ]==/\/\/\/\/\/\
  151. n149=}
  152. n150=/takeover {
  153. n151=  iecho 4 14<Takeover> Taking OVER #
  154. n152=  set %massd 1
  155. n153=  :next
  156. n154=  if ($opnick(%massd,#) == $me) {
  157. n155=    inc %massd
  158. n156=    goto next
  159. n157=  }
  160. n158=  elseif ($opnick(%massd,#) == $null) goto done
  161. n159=  set %op $+ %massd $opnick(%massd,#)
  162. n160=  inc %massd
  163. n161=  goto next
  164. n162=  :done
  165. n163=  massd
  166. n164=}
  167. n165=massd {
  168. n166=  if $readini %ini Other QTakeoverModes == 1 { mode # +smtnik Ha $+ $r(1,9) $+ $r(a,z) $+ $r(a,z) }
  169. n167=  .raw mode # -oooooo %op1 %op2 %op3 %op4 %op5 %op6
  170. n168=  .raw mode # -oooooo  %op7 %op8 %op9 %op10 %op11 %op12
  171. n169=  .raw mode # -oooooo %op13 %op14 %op15 %op16 %op17 %op18
  172. n170=  .raw mode # -oooooo  %op19 %op20 %op21 %op22 %op23 %op24
  173. n171=  .raw mode # -oooooo %op25 %op26 %op27 %op28 %op29 %op30
  174. n172=}
  175.